diff --git a/docs/fpm-ford/fonts/FontAwesome.otf b/docs/fpm-ford/fonts/FontAwesome.otf new file mode 100644 index 0000000..81c9ad9 Binary files /dev/null and b/docs/fpm-ford/fonts/FontAwesome.otf differ diff --git a/docs/fpm-ford/js/MathJax-config/.gitignore b/docs/fpm-ford/js/MathJax-config/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/docs/fpm-ford/module/m_prep.html b/docs/fpm-ford/module/m_prep.html new file mode 100644 index 0000000..60ec25f --- /dev/null +++ b/docs/fpm-ford/module/m_prep.html @@ -0,0 +1,1629 @@ + + + + + + + + + + + M_prep – prep + + + + + + + + + + + + + + + + + + + + +
+
+

M_prep + Module +

+
+
+
+ +
    +
  1. prep.f90
    2. +
  2. M_prep
    3. +
+
+
+
+ + +
+ +
+ + +
+ +
+
+

Uses

+
+
    +
  • + +
    • +
+
+ + +
+ +
+

Contents

+ +
+

Variables

+ +
+
+

Derived Types

+ +
+
+

Functions

+ +
+
+

Subroutines

+
+ +
+
+ +
+
+ + +
+

Variables

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeVisibilityAttributesNameInitial
character(len=:),public, allocatable, save::G_MAN
logical,public, save::G_MAN_COLLECT =.false.
character(len=:),public, allocatable::G_MAN_FILE
character(len=10),public ::G_MAN_FILE_POSITION ='ASIS      '
logical,public, save::G_MAN_PRINT =.false.
character(len=:),public, allocatable::G_comment
integer,public ::G_comment_count =0
character(len=10),public ::G_comment_style =' '
logical,public, save::G_condop(0:G_nestl_max)
logical,public ::G_dc
logical,public, save::G_debug =.false.
logical,public, save::G_extract =.false.
logical,public, save::G_extract_auto =.true.
logical,public, save::G_extract_flag =.false.
character(len=:),public, allocatable, save::G_extract_start
character(len=:),public, allocatable, save::G_extract_stop
type(file_stack),public ::G_file_dictionary(250)
logical,public ::G_ident =.false.
integer,public ::G_ihelp =stdout
integer,public ::G_inc_count =0
character(len=G_line_length),public ::G_inc_files(50)
logical,public, save::G_inparcel =.false.
integer,public ::G_io_total_lines =0
integer,public ::G_iocount =0
integer,public ::G_iout
integer,public, save::G_iout_init
integer,public ::G_iwidth
integer,public, parameter::G_line_length =4096
integer,public, save::G_line_number =0
logical,public ::G_llwrite =.true.
integer,public ::G_nestl =0
integer,public, parameter::G_nestl_max =20
logical,public ::G_noenv =.false.
character(len=G_line_length),public ::G_outline
character(len=10),public ::G_outtype ='asis'
type(parcel_stack),public ::G_parcel_dictionary(500)
integer,public ::G_parcelcount =0
character(len=:),public, allocatable, save::G_scratch_file
integer,public, save::G_scratch_lun =-1
character(len=G_line_length),public ::G_source
logical,public, save::G_system_on =.false.
integer,public, parameter::G_var_len =63
logical,public, save::G_verbose =.false.
logical,public ::G_write =.true.
type(dictionary),public, save::macro
integer,public, parameter::num =2048
+ +
+
+ + + + +
+

Derived Types

+
+

type, public :: file_stack

+
+

Components

+ + + + + + + + + + + + + + + + + + + +
TypeVisibilityAttributesNameInitial
character(len=G_line_length),public ::filename
integer,public ::line_number =0
integer,public ::unit_number
+ + +
+
+ +
+

type, public :: parcel_stack

+
+

Components

+ + + + + + + + + + + + + + + + + + + +
TypeVisibilityAttributesNameInitial
integer,public ::line_number =0
character(len=G_line_length),public ::name
integer,public ::unit_number
+ + +
+
+ +
+
+ + +
+

Functions

+
+

public pure function ends_in(string) result(ending)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character,intent(in) ::string
+ +

Return Value character,allocatable

+ +
+
+ +
+

public function getdate(name) result(s)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in),optional ::name
+ +

Return Value character(len=:),allocatable

+ +
+
+ +
+

public function true_or_false(line, ipos1, ipos2)

+
+ +

Arguments

+ + + + + + + + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=G_line_length),intent(in) ::line
integer,intent(in) ::ipos1
integer,intent(in) ::ipos2
+ +

Return Value logical

+ +
+
+ +
+
+ +
+

Subroutines

+
+

public subroutine check_name(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::line
+ + +
+
+ +
+

public subroutine cond()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine crib_help(lun)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
integer,intent(in) ::lun
+ + +
+
+ +
+

public subroutine def(verb, opts, noelse, eb)

+
+ +

Arguments

+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::verb
character(len=*),intent(in) ::opts
integer,intent(out) ::noelse
logical ::eb
+ + +
+
+ +
+

public subroutine defines()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine dissect2(verb, init, pars, error_return)

+
+ +

Arguments

+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::verb
character(len=*),intent(in) ::init
character(len=*),intent(in) ::pars
integer,intent(out),optional ::error_return
+ + +
+
+ +
+

public subroutine document(opts)

+
+ +

G_scratch_file=scratch(‘prep_scratch.’)) + THIS HAS TO BE A UNIQUE NAME – IMPROVE THIS

+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::opts
+ + +
+
+ +
+

public subroutine else(verb, opts, noelse, eb)

+
+ +

Arguments

+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::verb
character(len=*) ::opts
integer ::noelse
logical ::eb
+ + +
+
+ +
+

public subroutine endif(noelse, eb)

+
+ +

Arguments

+ + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
integer,intent(out) ::noelse
logical,intent(out) ::eb
+ + +
+
+ +
+

public subroutine exe()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine expand_variables(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::line
+ + +
+
+ +
+

public subroutine findit(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=G_line_length) ::line
+ + +
+
+ +
+

public subroutine flushit()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine format_g_man()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine get_os_type()

+
+ +

Determine the OS type by guessing

Read more… + +

Arguments

None + +
+
+ +
+

public subroutine help_usage(l_help)

+
+ +

!!$! which is preferred; but a blank value or “END” on a $BLOCK directive does as well.

+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
logical,intent(in) ::l_help
+ + +
+
+ +
+

public subroutine help_version(l_version)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
logical,intent(in) ::l_version
+ + +
+
+ +
+

public subroutine ident(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine if(opts, noelse, eb)

+
+ +

Arguments

+ + + + + + + + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::opts
integer,intent(out) ::noelse
logical ::eb
+ + +
+
+ +
+

public subroutine import(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::line
+ + +
+
+ +
+

public subroutine include(line, iunit)

+
+ +

Arguments

+ + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=G_line_length),intent(in) ::line
integer,intent(in) ::iunit
+ + +
+
+ +
+

public subroutine includes()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine opens()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine output_case(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine parcel_case(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine post(parcel_name)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::parcel_name
+ + +
+
+ +
+

public subroutine prepost(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine print_comment_block()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine put(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::opts
+ + +
+
+ +
+

public subroutine set(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::line
+ + +
+
+ +
+

public subroutine show_state(list, msg)

+
+ +

Arguments

+ + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in),optional ::list
character(len=*),intent(in) ::msg
+ + +
+
+ +
+

public subroutine stop(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::opts
+ + +
+
+ +
+

public subroutine stop_prep(message, stop_value)

+
+ +

Arguments

+ + + + + + + + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::message
integer,optional ::stop_value
+ + +
+
+ +
+

public subroutine undef(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine unset(opts)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*) ::opts
+ + +
+
+ +
+

public subroutine warn_prep(message)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::message
+ + +
+
+ +
+

public subroutine write_arguments()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine write_err(msg)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::msg
+ + +
+
+ +
+

public subroutine write_get_arguments()

+
+ +

Arguments

None + +
+
+ +
+

public subroutine write_out(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::line
+ + +
+
+ +
+

public subroutine www(line)

+
+ +

Arguments

+ + + + + + + + + +
TypeIntentOptionalAttributesName
character(len=*),intent(in) ::line
+ + +
+
+ +
+
+ +
+
+ +
+
+ + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/docs/fpm-ford/proc/crib_help.html b/docs/fpm-ford/proc/crib_help.html new file mode 100644 index 0000000..efa79fd --- /dev/null +++ b/docs/fpm-ford/proc/crib_help.html @@ -0,0 +1,308 @@ + + + + + + + + + + + crib_help – prep + + + + + + + + + + + + + + + + + + + + +
+
+

crib_help + Subroutine +

+
+
+
+ +
    +
  1. prep.f90
    2. +
  2. M_prep
    3. +
  3. crib_help
    4. +
+
+
+
+ + +
+ +
+ + +
+

public subroutine crib_help(lun)

+ + + +

Arguments

+ + + + + + + + + + +
TypeIntentOptionalAttributesName
integer,intent(in) ::lun
+ +
+ +
+

Contents

+ +
+

Variables

+
+
+ help_text + i +
+
+
+
+

Source Code

+
+ crib_help +
+
+ +
+
+ + +
+

Variables

+ + + + + + + + + + + + + + +
TypeVisibilityAttributesNameInitial
character(len=:),public, allocatable::help_text(:)
integer,public ::i
+ +
+
+ + + + + + + + +
+

Source Code

+ 
subroutine crib_help(lun) !@(#)crib_help(3f): prints abridged help information
+implicit none
+integer,intent(in) :: lun
+character(len=:),allocatable :: help_text(:)
+integer                        :: i
+help_text=[ CHARACTER(LEN=128) :: &
+"EXPRESSIONS                                                                     ",&
+"  numeric operators are +,-,*,/,**, (). Logical operators are                   ",&
+"   >  | .EQ.| .NE.| .GE.| .GT.| .LE.| .LT.|.NOT.|.AND.| .OR.| .EQV.|.NEQV.|     ",&
+"   >  |  == |  /= |  >= |  >  |  <= |  <  |  !  |  && |  || |  ==  |  !=  |     ",&
+"  $DEFINE variable_name[=expression][;...]                                      ",&
+'   > Predefined values are "OS", which is set to a guess of the system type, and',&
+"   > UNKNOWN=0 LINUX=1 MACOS=2 WINDOWS=3 CYGWIN=4 SOLARIS=5 FREEBSD=6 OPENBSD=7.",&
+"   > SYSTEMON is .TRUE. if --system is present on the command line, else .FALSE.",&
+"  $UNDEFINE|$UNDEF variable_name[;...]                                          ",&
+"CONDITIONAL CODE SELECTION:                                                     ",&
+"  $IF logical_integer-based_expression| [.NOT.] DEFINED(varname[,...])          ",&
+"  $IFDEF|$IFNDEF variable_or_envname                                            ",&
+"  $ELSEIF|$ELIF logical_integer-based_expression                                ",&
+"  $ELSE                                                                         ",&
+"  $ENDIF                                                                        ",&
+"MACRO STRING EXPANSION AND TEXT REPLAY:                                         ",&
+"   > Unless at least one variable name is defined no ${NAME} expansion occurs.  ",&
+"  $SET varname string                                                           ",&
+"  $$UNSET variable_name[;...]                                                   ",&
+"  $IMPORT envname[;...]                                                         ",&
+"   > $set author  William Shakespeare                                           ",&
+"   > $import HOME                                                               ",&
+"   > write(*,*)'${AUTHOR} ${DATE} ${TIME} File ${FILE} Line ${LINE} HOME ${HOME}",&
+"  $PARCEL [blockname] ... $ENDPARCEL ! a reuseable parcel of expandable text    ",&
+"  $POST   blockname(s)  ! insert a defined parcel of text                       ",&
+"EXTERNAL FILES (see $BLOCK ... --file also)                                     ",&
+"  $OUTPUT filename [--append]                                                   ",&
+"  $INCLUDE filename                                                             ",&
+"TEXT BLOCK FILTERS (--file writes to $PREP_DOCUMENT_DIR/doc/NAME)               ",&
+"  $BLOCK [comment|null|write|variable [--varname NAME]|set|system|message|      ",&
+"         define|help|version][--file NAME [--append]] ... $ENDBLOCK             ",&
+"INFORMATION                                                                     ",&
+"  $MESSAGE message_to_stderr                                                    ",&
+"  $SHOW [defined_variable_name][;...]                                           ",&
+"SYSTEM COMMANDS (see also: $BLOCK SYSTEM)                                       ",&
+"  $SYSTEM command                                                               ",&
+"  $STOP [stop_value[ ""message""]] | $QUIT [""message""]| $ERROR [""message""]        "]
+   WRITE(lun,'(a)')(trim(help_text(i)),i=1,size(help_text))
+end subroutine crib_help
+
+ +
+
+ +
+
+ +
+
+ + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/docs/fpm-ford/tipuesearch/.DS_Store b/docs/fpm-ford/tipuesearch/.DS_Store new file mode 100644 index 0000000..c087f26 Binary files /dev/null and b/docs/fpm-ford/tipuesearch/.DS_Store differ diff --git a/docs/fpm-ford/tipuesearch/img/.DS_Store b/docs/fpm-ford/tipuesearch/img/.DS_Store new file mode 100644 index 0000000..ed47b30 Binary files /dev/null and b/docs/fpm-ford/tipuesearch/img/.DS_Store differ