테스트2

program mysplit

character*80 line ! 라인의 최대 길이를 80으로 했습니다.
character*4 fname ! 생성되는 파일 이름
integer lnum ! 줄 번호
integer fnum ! 생성된 파일 일련 번호
integer lines_per_file ! 생성되는 파일의 라인 수
character*1 char1, char2, char3
integer achar0 ! '0'의 아스키 코드 번호

achar0 = 48 ! 포트란 77인 경우
! achar0 = iachar('0') ! 포트란 90인 경우

lines_per_file = 18 ! 생성되는 파일은 18줄씩입니다.
open (1, file='infile', form='formatted') ! 원래 파일을 오픈합니다

program mysplit

character*80 line ! 라인의 최대 길이를 80으로 했습니다.
character*4 fname ! 생성되는 파일 이름
integer lnum ! 줄 번호
integer fnum ! 생성된 파일 일련 번호
integer lines_per_file ! 생성되는 파일의 라인 수
character*1 char1, char2, char3
integer achar0 ! '0'의 아스키 코드 번호

achar0 = 48 ! 포트란 77인 경우
! achar0 = iachar('0') ! 포트란 90인 경우

lines_per_file = 18 ! 생성되는 파일은 18줄씩입니다.
open (1, file='infile', form='formatted') ! 원래 파일을 오픈합니다