SWFUpload is taking a long time to load or the load has failed. Please make sure that the Flash Plugin is enabled and that a working version of the Adobe Flash Player is installed.
We're sorry. SWFUpload could not load. You may need to install or upgrade Flash Player.
Visit the Adobe website to get the Flash Player.
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') ! 원래 파일을 오픈합니다
