gtool_historyauto_generic.f90

Go to the documentation of this file.

!--
! *** Caution!! ***
!
! This file is generated from "gtool_historyauto_generic.rb2f90" by Ruby 2.3.3.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "gtool_historyauto_generic.rb2f90" から Ruby 2.3.3
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!
!= gtool_historyauto より提供される手続の引用仕様宣言
!= Interface of procedures provided from gtool_historyauto
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: gtool_historyauto_generic.rb2f90,v 1.7 2010-12-28 09:29:09 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2008. All rights reserved. 
! License::   See COPYRIGHT[link:../../../COPYRIGHT]
!

module gtool_historyauto_generic
  !
  != gtool_historyauto より提供される手続の引用仕様宣言
  != Interface of procedures provided from gtool_historyauto
  !
  ! <b>Note that Japanese and English are described in parallel.</b>
  !
  ! モジュールの概要や使用方法については, gtool_historyauto 
  ! を参照ください. 
  !
  ! See "gtool_historyauto" for brief and usage of this module. 
  !
  !== Procedures list
  !
  ! HistoryAutoCreate          :: 初期化
  ! HistoryAutoAddVariable     :: 変数追加
  ! HistoryAutoPut             :: データ出力
  ! HistoryAutoClose           :: 終了処理
  ! HistoryAutoPutAxis         :: 座標データ追加
  ! HistoryAutoAddWeight       :: 座標重み追加
  ! HistoryAutoAddAttr         :: 属性追加
  ! HistoryAutoAllVarFix       :: 登録変数の確定
  ! HistoryAutoPutAxisMPI      :: 領域全体の座標データ指定 (MPI 使用時のみ有効)
  ! HistoryAutoChkOutput       :: 変数の出力設定の確認
  ! HistoryAutoChkOutputTiming :: 変数の出力設定の確認 (経過時間指定)
  ! ---------------------      :: ---------------------
  ! HistoryAutoCreate          :: Initialization
  ! HistoryAutoAddVariable     :: Addition of variables
  ! HistoryAutoPut             :: Output of data
  ! HistoryAutoClose           :: Termination
  ! HistoryAutoPutAxis         :: Addition of data of axes
  ! HistoryAutoAddWeight       :: Addition of weights of axes
  ! HistoryAutoAddAttr         :: Addition of attributes
  ! HistoryAutoAllVarFix       :: Fix register of variables
  ! HistoryAutoPutAxisMPI      :: Specify data of axes in whole area (This is valid when MPI is used)
  ! HistoryAutoChkOutput       :: Check output setting of a variable
  ! HistoryAutoChkOutputTiming :: Check output setting of a variable (with elapsed time)
  !

  implicit none
  private
  public:: historyautocreate
  public:: historyautoclose
  public:: historyautoaddweight
  public:: historyautoputaxis
  public:: historyautoputaxismpi
  public:: historyautoaddvariable
  public:: historyautoput
  public:: historyautoaddattr
  public:: historyautoallvarfix
  public:: historyautochkoutput
  public:: historyautochkoutputtiming

  interface historyautocreate

    subroutine historyautocreate1( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & origin, terminus, &                     ! (in)
      & xtypes, conventions, gt_version, &      ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, &                             ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date,  cal, &                     ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 40:
      use dc_types, only: dp
      use dc_date_types, only: dc_datetime
      use dc_calendar, only: dc_cal, dc_cal_date

      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      real(DP), intent(in):: origin
      real(DP), intent(in):: terminus
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      real(DP), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split

    end subroutine historyautocreate1

    subroutine historyautocreate2( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & xtypes, conventions, gt_version,&       ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, origin, terminus, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date, cal, &                      ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 60:
      use dc_date_types, only: dc_datetime, dc_difftime
      use dc_calendar, only: dc_cal, dc_cal_date

      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      real, intent(in), optional:: interval
      real, intent(in), optional:: origin
      real, intent(in), optional:: terminus
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split

    end subroutine historyautocreate2

    subroutine historyautocreate3( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & origin, terminus, &                     ! (in)
      & xtypes, conventions, gt_version, &      ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, &                             ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date,  cal, &                     ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 70:
      use dc_date_types, only: dc_datetime, dc_difftime
      use dc_calendar, only: dc_cal, dc_cal_date

      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      type(dc_difftime), intent(in):: origin
      type(dc_difftime), intent(in):: terminus
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      type(dc_difftime), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split

    end subroutine historyautocreate3

  end interface

  interface historyautoclose
    subroutine historyautoclose1
    end subroutine historyautoclose1
  end interface

  interface historyautoaddweight


    subroutine historyautoaddweightreal( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real, intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightreal


    subroutine historyautoaddweightdouble( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real(DP), intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightdouble


    subroutine historyautoaddweightint( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      integer, intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightint


  end interface

  interface historyautoputaxis


    subroutine historyautoputaxisreal( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real, intent(in):: array(:)
    end subroutine historyautoputaxisreal


    subroutine historyautoputaxisdouble( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real(DP), intent(in):: array(:)
    end subroutine historyautoputaxisdouble


    subroutine historyautoputaxisint( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: dim
      integer, intent(in):: array(:)
    end subroutine historyautoputaxisint


  end interface

  interface historyautoputaxismpi


    subroutine historyautoputaxismpireal( dim, array )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real, intent(in):: array(:)
    end subroutine historyautoputaxismpireal


    subroutine historyautoputaxismpidouble( dim, array )
      use dc_types, only: dp

      character(*), intent(in):: dim
      real(DP), intent(in):: array(:)
    end subroutine historyautoputaxismpidouble


    subroutine historyautoputaxismpiint( dim, array )
      use dc_types, only: dp

      character(*), intent(in):: dim
      integer, intent(in):: array(:)
    end subroutine historyautoputaxismpiint


  end interface

  interface historyautoaddvariable

    subroutine historyautoaddvariable1( &
      & varname, dims, longname, units, &      ! (in)
      & xtype, time_units, time_average, &     ! (in) optional
      & file, &                                ! (in) optional
      & origin, terminus, interval, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & newfile_interval &                      ! (in) optional
      & ) !:doc-priority 40:
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: dims(:)
      character(*), intent(in):: longname
      character(*), intent(in):: units
      character(*), intent(in), optional:: xtype
      character(*), intent(in), optional:: time_units
      logical, intent(in), optional:: time_average
      character(*), intent(in), optional:: file
      real(DP), intent(in), optional:: origin
      real(DP), intent(in), optional:: terminus
      real(DP), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      integer, intent(in), optional:: newfile_interval

    end subroutine historyautoaddvariable1

    subroutine historyautoaddvariable2( &
      & varname, dims, longname, units, &       ! (in)
      & xtype, time_units, time_average, &      ! (in) optional
      & file, &                                 ! (in) optional
      & origin, terminus, interval, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & newfile_interval &                      ! (in) optional
      & ) !:doc-priority 60:
      use dc_date_types, only: dc_difftime

      character(*), intent(in):: varname
      character(*), intent(in):: dims(:)
      character(*), intent(in):: longname
      character(*), intent(in):: units
      type(dc_difftime), intent(in):: origin
      type(dc_difftime), intent(in):: terminus
      type(dc_difftime), intent(in), optional:: interval
      character(*), intent(in), optional:: xtype
      character(*), intent(in), optional:: time_units
      logical, intent(in), optional:: time_average
      character(*), intent(in), optional:: file
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      integer, intent(in), optional:: newfile_interval

    end subroutine historyautoaddvariable2

  end interface

  interface historyautoaddattr


    subroutine historyautoaddattrchar0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      character(*), intent(in):: value
    end subroutine historyautoaddattrchar0


    subroutine historyautoaddattrlogical0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      logical, intent(in):: value
    end subroutine historyautoaddattrlogical0


    subroutine historyautoaddattrint0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      integer, intent(in):: value
    end subroutine historyautoaddattrint0


    subroutine historyautoaddattrint1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      integer, intent(in):: value(:)
    end subroutine historyautoaddattrint1


    subroutine historyautoaddattrreal0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real, intent(in):: value
    end subroutine historyautoaddattrreal0


    subroutine historyautoaddattrreal1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real, intent(in):: value(:)
    end subroutine historyautoaddattrreal1


    subroutine historyautoaddattrdouble0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real(DP), intent(in):: value
    end subroutine historyautoaddattrdouble0


    subroutine historyautoaddattrdouble1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp

      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real(DP), intent(in):: value(:)
    end subroutine historyautoaddattrdouble1


  end interface

  interface historyautoput


    subroutine historyautoputdouble0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble0


    subroutine historyautoputdouble1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble1


    subroutine historyautoputdouble2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble2


    subroutine historyautoputdouble3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble3


    subroutine historyautoputdouble4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble4


    subroutine historyautoputdouble5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble5


    subroutine historyautoputdouble6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble6


    subroutine historyautoputdouble7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble7


    subroutine historyautoputreal0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputreal0


    subroutine historyautoputreal1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal1


    subroutine historyautoputreal2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal2


    subroutine historyautoputreal3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal3


    subroutine historyautoputreal4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal4


    subroutine historyautoputreal5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal5


    subroutine historyautoputreal6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal6


    subroutine historyautoputreal7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal7


    subroutine historyautoputint0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputint0


    subroutine historyautoputint1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint1


    subroutine historyautoputint2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint2


    subroutine historyautoputint3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint3


    subroutine historyautoputint4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint4


    subroutine historyautoputint5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint5


    subroutine historyautoputint6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint6


    subroutine historyautoputint7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint7


    subroutine historyautoputold1double0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double0


    subroutine historyautoputold1double1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double1


    subroutine historyautoputold1double2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double2


    subroutine historyautoputold1double3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double3


    subroutine historyautoputold1double4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double4


    subroutine historyautoputold1double5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double5


    subroutine historyautoputold1double6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double6


    subroutine historyautoputold1double7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double7


    subroutine historyautoputold1real0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real0


    subroutine historyautoputold1real1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real1


    subroutine historyautoputold1real2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real2


    subroutine historyautoputold1real3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real3


    subroutine historyautoputold1real4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real4


    subroutine historyautoputold1real5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real5


    subroutine historyautoputold1real6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real6


    subroutine historyautoputold1real7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real7


    subroutine historyautoputold1int0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int0


    subroutine historyautoputold1int1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int1


    subroutine historyautoputold1int2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int2


    subroutine historyautoputold1int3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int3


    subroutine historyautoputold1int4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int4


    subroutine historyautoputold1int5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int5


    subroutine historyautoputold1int6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int6


    subroutine historyautoputold1int7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp

      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int7


  end interface

  interface historyautoallvarfix
    subroutine historyautoallvarfix
    end subroutine historyautoallvarfix
  end interface

  interface historyautochkoutput
    logical function historyautochkoutput( varname ) result(result)
      character(*), intent(in):: varname
    end function historyautochkoutput
  end interface

  interface historyautochkoutputtiming
    logical function historyautochkoutputtiming( time, varname ) result(result)
      use dc_types, only: dp
      real(DP), intent(in):: time
      character(*), intent(in):: varname
    end function historyautochkoutputtiming
  end interface

end module gtool_historyauto_generic

!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++