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=%C7%F5%BD%C5%C0%FB%C0%CE%20%C8%B8%C0%C7%20%B1%E2%B9%FD%B0%FA%20%B9%E6%BE%C8.ppt&rct=j&q=회의 시계 타이머&ei=Y2e2TO6WK8H-8AbNtO3_Aw&usg=AFQjCNHthxSxixYuagqoIMqI9b5Qq40tBw&sig2=xOaXhLlNQb-UlCv-HaMTMA&cad=rjt 

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

----
댓글 테스트 -- 파초 [[Date(2010-10-14T03:05:36)]]