Recent changes

--- language:fortran [2018/06/14 06:13] – [String, Integer 상호 변환] ledyx
+++ language:fortran [2021/02/07 03:15] (current) – external edit 127.0.0.1
@@ Line 2: / Line 2: @@
 {{tag>Language Fortran}}
+= gFortran에서 행 길이 제한 무시 =
+<sxh bash>
+gfortran -ffree-line-length-none xxx.f90
+# -ffree-line-length-0
+</sxh>
@@ Line 81: / Line 89: @@
   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>

language:fortran [2018/06/14 06:13] – [String, Integer 상호 변환] ledyx

language:fortran [2021/02/07 03:15] (current) – external edit 127.0.0.1

Line 2:

= gFortran에서 행 길이 제한 무시 =

gfortran -ffree-line-length-none xxx.f90

# -ffree-line-length-0

</sxh>

Line 81:

Line 89:

deallocate(args)

END PROGRAM

</code>

= 문자열 동적 할당 =

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>

Menu