Fortran Compile

Fortran Compile

         !ashutosh

!declare below two lines

                  integer*4     val1   

                  character*10   chr2

                  val1=1003

!call below two lines where ever required

         write(chr2,"(I4.4)")val1

         CALL Write_To_Pipe(chr2)

                   !ashutosh

OR

OPEN(5, FILE='C:\MVRS\Routes\DATALOG.TXT',ACCESS='APPEND')

       WRITE(5,*)ERT_ID ! this a characer

             CLOSE(5)