fpt - Example Report: Fortran Logical Units
The report shows the Fortran logical units used to open, close, read from and write to files in an fpt project. For each logical unit, the report shows the parametric names (if any) and the file handling keywords. A summary report is also generated showing the numbers of external I/O statements.
The fpt command to generate the report is:
Usage of FORTRAN Logical Units ============================== Logical Unit: 1 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_inplun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 1 READ and ACCEPT, number of occurrences: 4, Keywords: (fmt=...) CLOSE, number of occurrences: 1, Keywords: () OPEN, number of occurrences: 2, Keywords: (err=..., file=..., status='old') Logical Unit: 2 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_monlun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 2 WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 46, Keywords: (fmt=...) OPEN, number of occurrences: 1, Keywords: (err=..., file=..., status='unknown') Logical Unit: 3 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_scrlun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 3 READ and ACCEPT, number of occurrences: 1, Keywords: (fmt=...) WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 11, Keywords: (fmt=...) OPEN, number of occurrences: 1, Keywords: (err=..., status='scratch') REWIND, number of occurrences: 1, Keywords: () Logical Unit: 4 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_outlun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 4 WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 15, Keywords: (fmt=...) OPEN, number of occurrences: 1, Keywords: (err=..., file=..., status='unknown') Terminal input LUN, Unit: 5 --------------------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ pactln wwrite,acargs,accanc,acdetl,acdfxt,acecho,acebda,acerro,acinif, acexec,achelp,acinit,... Parameter INTEGER *4 5 READ and ACCEPT, number of occurrences: 1, Keywords: (fmt=...) Terminal output LUN, Unit: 6 ---------------------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_ttolun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 6 pacoln wwrite,acargs,accanc,acdetl,acdfxt,acecho,acebda,acerro,acinif, acexec,achelp,acinit,... Parameter INTEGER *4 6 WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 37, Keywords: (fmt=...) Logical Unit: 7 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ paclln wwrite,acargs,accanc,acdetl,acdfxt,acecho,acebda,acerro,acinif, acexec,achelp,acinit,... Parameter INTEGER *4 7 WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 1, Keywords: (fmt=...) Logical Unit: 8 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_errlun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 8 READ and ACCEPT, number of occurrences: 1, Keywords: (rec=...) OPEN, number of occurrences: 1, Keywords: (access='direct', err=..., file=..., form='unformatted', recl=..., status='old') Logical Unit: 9 --------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ p_xml_lun acexec,enable_operator,acusex,compile,drxh_xml,op_row,drxrep,drxerr, memmap,dareao,dareaw,drxbda,... Parameter INTEGER *4 9 WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 14, Keywords: (fmt=...) CLOSE, number of occurrences: 1, Keywords: () OPEN, number of occurrences: 1, Keywords: (err=..., file=..., status='unknown') Logical Unit: 10 ---------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ paciln wwrite,acargs,accanc,acdetl,acdfxt,acecho,acebda,acerro,acinif, acexec,achelp,acinit,... Parameter INTEGER *4 10 READ and ACCEPT, number of occurrences: 1, Keywords: (fmt=...) CLOSE, number of occurrences: 2, Keywords: () OPEN, number of occurrences: 2, Keywords: (err=..., file=..., status='unknown') Units which are run-time variables ---------------------------------- Symbol(s): Name Sub-prog/Struct Use/COMMON Address Type Size Value/Bounds ---- --------------- ---------- ------- ---- ---- ------------ acilun wwrite,acargs,accanc,acdetl,acdfxt,acecho,acebda,acerro,acinif, acexec,achelp,acinit,... /acl_ncm/ 8 INTEGER *4 i drxrep Local INTEGER *4 lun acinop Local INTEGER *4 df READ and ACCEPT, number of occurrences: 2, Keywords: (fmt=...) WRITE, TYPE, PRINT and DISPLAY, number of occurrences: 4, Keywords: (fmt=...) CLOSE, number of occurrences: 3, Keywords: () OPEN, number of occurrences: 2, Keywords: (err=..., file=..., status='unknown') Total Counts of External I/O Statements ======================================= READ and ACCEPT 10 REWRITE 0 WRITE, TYPE, PRINT and DISPLAY 128 BACKSPACE 0 CLOSE 7 DELETE 0 ENDFILE 0 OPEN 11 REWIND 1 UNLOCK 0 *******************************************************************************
Copyright ©1995 to 2024 Software Validation Ltd. All rights reserved.