F90SPLIT
Split FORTRAN90 Source Files

F90SPLIT is a FORTRAN90 program which reads a (simple) FORTRAN90 source code, and writes each routine to a separate file with an extension of ".f90".

Here, by "routine", we mean a chunk of text that begins with a BLOCKDATA, FUNCTION, MODULE, PROGRAM or SUBROUTINE unit and ends with an END statement.

This utility can be convenient when your goal is to create a UNIX "AR" archive of the compiled object code. By splitting your source code up, and compiling each routine separately, you end up with a library in which each compiled module is individual listed and replaceable.

Usage:

f90split myprog.f90

• myprog.f90 is the file to be split.

Instead of the name of a single file, a pattern can be given, as in:

f90split sub*.f90

Licensing:

The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.

Languages:

F90SPLIT is available in a C version and a FORTRAN90 version.

Related Data and Programs:

CATALOG, a C++ program which reads a C, C++, FORTRAN77 or FORTRAN90 program and prints every line that begins with a special index tag. If the program has been marked up expecting this convention, it is a handy way of making a table of contents of a program file.

EXTRACT, a FORTRAN90 program which extracts a subroutine, function or module by name from a FORTRAN file.

F77SPLIT, a C program which can split a FORTRAN77 file.

FIXCON, a FORTRAN90 program which reads a FORTRAN file using FORTRAN77 continuation statements, and makes a copy that uses FORTRAN90 continuation instead.

HTMLINDEX, a C++ program which reads a FORTRAN program and writes a skeleton HTML page describing it, assuming that each subroutine includes a '!!' or 'cc' description line.

INCLUDE_FILES, a FORTRAN90 program which reads a FORTRAN program with INCLUDE statements, and makes a copy with the indicated files included.

MODULE_MARK, a FORTRAN90 program which replaces bare "END" statements by "END (module name)" statements in a FORTRAN90 file.

Source Code:

• f90split.f90, the source code;

Examples and Tests:

• f90split_test.f90, a sample file to split up;
• f90split_test.txt, the printed output from a run of the program.

List of Routines:

• MAIN is the main program for F90SPLIT.
• HANDLE handles one file.
• CH_CAP capitalizes a single character.
• CH_LOW lowercases a single character.
• DIGIT_TO_CH returns the character representation of a decimal digit.
• F90_LINE_IS_BEGIN determines if a line begins a FORTRAN90 routine.
• F90_LINE_IS_END determines if a line ends a FORTRAN90 module.
• FILE_EXT determines the "extension" of a file name.
• GET_UNIT returns a free FORTRAN unit number.
• S_BEFORE_SS_COPY copies a string up to a given substring.
• S_BLANK_DELETE removes blanks from a string, left justifying the remainder.
• S_BLANKS_DELETE replaces consecutive blanks by one blank.
• S_CAP replaces any lowercase letters by uppercase ones in a string.
• S_CAT concatenates two strings to make a third string.
• S_EQI is a case insensitive comparison of two strings for equality.
• S_INDEX_LAST finds the LAST occurrence of a given substring.
• S_INDEXI is a case-insensitive INDEX function.
• S_LOW replaces all uppercase letters by lowercase ones.
• S_SPLIT divides a string into three parts, given the middle.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• WORD_NEXT_READ "reads" words from a string, one at a time.

You can go up one level to the FORTRAN90 source codes.