테스트2

http://www.google.co.kr/url?sa=t&source=web&cd=13&ved=0CCkQFjACOAo&url=http://www.seoulsharp.co.kr/new_s06/download.asp?file=�� ȸ�� .ppt&rct=j&q=회의 시계 타이머&ei=Y2e2TO6WK8H-8AbNtO3_Aw&usg=AFQjCNHthxSxixYuagqoIMqI9b5Qq40tBw&sig2=xOaXhLlNQb-UlCv-HaMTMA&cad=rjt

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') ! 원래 파일을 오픈합니다

댓글 테스트 -- 파초 2010-10-14

테스트2 (rev. 1.16)