Remove Format Statement Labels

Description:  replace the format code in the read/write statement directly with a parameter string, instead of specifying the format code in a separate format statement.

State: Implemeted         Author: Mariano Méndez     Version:  Submitting Process

Code Example:

 program test1 
    implicit none

    integer :: X
    integer :: Y

    READ( 1,100, REC=13, ERR=30 ) X, Y
100 format (I10,F10.3)

end program test1

   program test1 
    implicit none
    CHARACTER(LEN=9), PARAMETER ::FMT100="I10,F10.3"

    integer :: X
    integer :: Y

    read ( 1,FMT100, REC=13, ERR=30) X, Y

end program test1


ScreenShots

             

HTML Comment Box is loading comments...