PSS ID Number: 149146
Article Last Modified on 11/2/1999
C Compile options needed: none
character*50 line
line = 'carriage control'
open(12,file='file1.out', carriagecontrol='fortran')
open(14,file='file2.out')
WRITE(12,'(1X,A50)') line ! 1X not used as carriage control
WRITE(14,'(1X,A50)') line ! 1X used as carriage control
WRITE(*,'(1X,A50)') line
close(12)
close(14)
end
Output - Screen:
carriagecontrol
Output - File1.out:
arriagecontrol
Output - File2.out:
carriagecontrol
Additional query words: 4.00
Keywords: kbLangFortran KB149146
Technology: kbAudDeveloper kbFORTRANPower400NT kbFortranSearch kbZNotKeyword8