EXTRACT
Painless Module Extraction

EXTRACT is a FORTRAN90 program which pulls a copy of a FORTRAN block data, function, module, program or subroutine from a big file, and saves the copy in a little file.

I've found EXTRACT extremely useful, as an alternative to printing out a huge library of routines, or using an editor to extract the seven routines I need from a collection of 200.

Usage:

extract module file.f

• module is the name of the desired module;
• file.f is the file to be searched.

Licensing:

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

Languages:

EXTRACT is available in 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.

F77_CLEANUP, a FORTRAN90 program which makes a copy of a FORTRAN77 file in which some minor cleanups have been made.

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

F90SPLIT, a FORTRAN90 program which reads a FORTRAN file and creates individual files for every subroutine or function in the file.

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:

• extract.f90, the source code;

Examples and Tests:

• extract_test.f90, a sample text file from which modules are to be extracted;
• extract_test.txt, the output file;

List of Routines:

• MAIN is the main program for EXTRACT.
• CH_CAP capitalizes a single character.
• DIGIT_TO_CH returns the character representation of a decimal digit.
• FILE_EXT determines the "extension" of a file name.
• GET_UNIT returns a free FORTRAN unit number.
• MODULE_FIND searches a file for the first line of a given module.
• MODULE_WRITE writes out the lines of a file until 'END' is reached.
• 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_OF_I4 converts an integer to a left-justified string.
• 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.