home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol270 / fs-sf.doc < prev    next >
Text File  |  1986-05-22  |  2KB  |  57 lines
  1. [FS-SF.DOC of JUGPDS Vol.16]                85-09-15
  2.  
  3.                  Fortran Coding Format Converter
  4.                                by
  5.                    H. Miyasaka (JUG-CP/M No.6)
  6.  
  7.    1. fs.com
  8.   
  9.     Usage : fs filename {[n]}
  10.  
  11.         Filename is a source program file in free format coding
  12.         with the default extension of .FRE  
  13.                 Output file extension is .FOR
  14.         Option 'n' means no auto indent.
  15.  
  16.  
  17.    2. sf.com
  18.     
  19.     Usage : sf filename
  20.  
  21.         Filename is a source program file in standard Fortran
  22.         format with the default extension of .FOR
  23.         Output file extension is .FRE
  24.         
  25.    
  26.    3. Codeing Rule.
  27.  
  28.     (1) The first column with a " is a comment line.
  29.     (2) Fortran statements and statment numbers must be within 1-80 
  30.             columns.
  31.        (3) A continuation of statement is indicated by a '-' in the last 
  32.             character of the previous statement.
  33.  
  34.  
  35.    4. Sample Program.
  36.  
  37.   
  38.      Free format coding                         Standard format coding
  39.  
  40.    1     7           (column)                  1     7          (column)
  41.    "  THIS IS A COMMENT LINE                   C  THIS IS A COMMENT LINE
  42.    REAL A(100),B(100),C(100),-                       REAL A(100),B(100),C(100),
  43.    D(100)                                           $D(100)
  44.    READ(5,100,END=999) N          ------->           READ(5,100,EMD=999) N
  45.    100 FORMAT(I10)                 fs.com        100 FORMAT(I10)
  46.    IF(N.LE.0) GO TO 999                              IF(N.LE.0) GO TO 999
  47.    DO 10 I=1,N                                       DO 10 I=1,N
  48.    A(I)=0.0                       <-------             A(I)=0.0
  49.    10 CONTINUE                     sf.com         10 CONTINUE
  50.    020 FORMAT(1H0,14X,'DETERMINA-                020 FORMAT(1H0,14X,'DETERMINA
  51.    NT OF MAT = ',E16.8)                             $NT OF MAT = ',E16.8)
  52.         .                                             .
  53.         .                                             .
  54.         .                                             . 
  55.    999 STOP                                      999 STOP
  56.    END                                               END
  57.