Sidebar

Recent changes

Menu

Trace: • Kotlin • 1부 동작하는 도메인 모델 만들기 • Polymorphism • Fortran • PDF 만들기 • Git • 문법 • Regular Expression • Spring Security
Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
language:fortran [2018/06/14 06:04] – ledyxlanguage:fortran [2021/02/07 03:15] (current) – external edit 127.0.0.1
Line 2: Line 2:
  
 {{tag>Language Fortran}} {{tag>Language Fortran}}
 +
 += gFortran에서 행 길이 제한 무시 =
 +
 +<sxh bash>
 +gfortran -ffree-line-length-none xxx.f90
 +# -ffree-line-length-0
 +</sxh>
 +
  
  
Line 57: Line 65:
   print *, string2   print *, string2
 end program read_val end program read_val
 +</code>
 +
 +
 +== Command Line 응용 ==
 +
 +<code fortran>
 +PROGRAM test_getarg
 +  INTEGER :: i
 +  CHARACTER(len=8) :: arg
 +  INTEGER, DIMENSION (:), ALLOCATABLE :: args
 +
 +  allocate(args(iargc()))
 +
 +  DO i = 1, iargc()
 +    CALL getarg(i, arg)
 +    read(arg,'(I10)') args(i)
 +  END DO
 +
 +!print
 +  DO i = 1, SIZE(args)
 +        print *, args(i)
 +  end do
 +
 +  deallocate(args)
 +
 +END PROGRAM
 +</code>
 +
 += 문자열 동적 할당 =
 +<code fortran>
 +PROGRAM test
 + CHARACTER(len=128) :: arg
 + CHARACTER(len=:), ALLOCATABLE :: path
 +
 + INTEGER date(3)
 +
 + CALL getarg(1, arg)
 + path = TRIM(arg)
 +
 + DO i=1, 3
 +  CALL getarg(i+1, arg)
 +  READ(arg,'(I10)') date(i)
 + END DO
 +
 +print *,LEN(path)
 +print *,"path : ",path," /// ",date(1),date(2),date(3)
 +
 +END PROGRAM
 </code> </code>
language/fortran.1528952673.txt.gz · Last modified: 2021/02/07 03:15 (external edit)