Parent Directory | Revision Log | Patch
revision 2.0 by kusanagi, Tue Sep 21 20:51:20 2004 UTC | revision 2.1 by kusanagi, Fri Dec 17 12:46:23 2004 UTC | |
---|---|---|
# | Line 95 c subroutine trk_calib_pkt(runerror | Line 95 c subroutine trk_calib_pkt(runerror |
95 | integer ffd_pkt !pkt file descriptor | integer ffd_pkt !pkt file descriptor |
96 | !(file temporaneo) | !(file temporaneo) |
97 | character*60 event_file_name !nome file | character*60 event_file_name !nome file |
98 | integer lun_pkt | |
99 | parameter (lun_pkt=10) | |
100 | open(unit=lun_pkt, | open(unit=lun_pkt, |
101 | $ name=EVENT_FILE_NAME(1:lnblnk(EVENT_FILE_NAME)), | $ name=EVENT_FILE_NAME(1:lnblnk(EVENT_FILE_NAME)), |
102 | $ status='old', | $ status='old', |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |