This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| language:fortran [2018/06/14 05:13] – [String, Integer 상호 변환] ledyx | language:fortran [2021/02/07 03:15] (current) – external edit 127.0.0.1 | ||
|---|---|---|---|
| Line 2: | Line 2: | ||
| {{tag> | {{tag> | ||
| + | |||
| + | = gFortran에서 행 길이 제한 무시 = | ||
| + | |||
| + | <sxh bash> | ||
| + | gfortran -ffree-line-length-none xxx.f90 | ||
| + | # -ffree-line-length-0 | ||
| + | </ | ||
| + | |||
| Line 81: | Line 89: | ||
| deallocate(args) | deallocate(args) | ||
| + | |||
| + | END PROGRAM | ||
| + | </ | ||
| + | |||
| + | = 문자열 동적 할당 = | ||
| + | <code fortran> | ||
| + | PROGRAM test | ||
| + | | ||
| + | | ||
| + | |||
| + | | ||
| + | |||
| + | CALL getarg(1, arg) | ||
| + | path = TRIM(arg) | ||
| + | |||
| + | DO i=1, 3 | ||
| + | CALL getarg(i+1, arg) | ||
| + | READ(arg,' | ||
| + | END DO | ||
| + | |||
| + | print *,LEN(path) | ||
| + | print *," | ||
| END PROGRAM | END PROGRAM | ||
| </ | </ | ||