[[uploadfile]]
attachment:Example.jpg
[[attachment]]

attachment


[[Navigation(모니위키)]]
[[Navigation(HelpContents)]]
[[익뮤]]


{{{#!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)]]