Sheltran - PERFORM and PROC

Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sheltran/PROC.html
Дата изменения: Unknown
Дата индексирования: Fri Jan 16 22:28:02 2009
Кодировка:
Поисковые слова: http www.badastronomy.com phpbb index.php

Form:

C     To invoke a procedure section: 
      PERFORM <procedure name> 
C     To define a procedure section: 
      PROC <procedure name>
         <statement>... 
      CPROC

Notes:

The procedure name must not be longer than 31 characters.
The statements in a PROC may not include:
- STOP or RETURN
- XWHILE, XREPEAT or XFOR unless the corresponding loop is wholly included within the range of the PROC-CPROC construct.
A procedure section may only be defined in a program after all PERFORMs to that PROC have occurred, i.e. PROCs normally preceed the END statement.
A PERFORM in a FOR-loop causes non-standard FORTRAN to be generated.

Actions:

Whenever a PERFORM statement is encountered, the appropriate statements between PROC and CPROC are executed.

Example:

         . 
         . 
      PERFORM CLFILE
         . 
         . 
         . 
         .
      PROC CLFILE 
         FOR LUN=1,NUNITS
            CLOSE(UNIT=LUN) 
         CFOR
      CPROC