This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
" Ensure correct syntax highlighting and auto-indentation for Fortran free-form | |
" source code. | |
let fortran_free_source=1 | |
let fortran_do_enddo=1 | |
filetype plugin indent on | |
syntax on | |
" Turn on line numbers and row/column numbers. | |
set nu |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
! split a string into 2 either side of a delimiter token | |
SUBROUTINE split_string(instring, string1, string2, delim) | |
CHARACTER(30) :: instring,delim | |
CHARACTER(30),INTENT(OUT):: string1,string2 | |
INTEGER :: index | |
instring = TRIM(instring) | |
index = SCAN(instring,delim) | |
string1 = instring(1:index-1) |