machine_mod.f

Go to the documentation of this file.

      MODULE machine

!              record length used in open statement for unformatted,
!              direct access file, with 512 bytes per record
      INTEGER  open_n1
!
!              number of DOUBLE PRECISION words in 512 bytes
      INTEGER  nwords_dp
!
!              number of REAL words in 512 bytes
      INTEGER  nwords_r
!
!              number of INTEGER words in 512 bytes
      INTEGER  nwords_i
!
      LOGICAL :: just_flush = .true.

! computer node name/id
      CHARACTER(LEN=64) :: id_node

! RUN ID info
      INTEGER :: id_month
      INTEGER :: id_day
      INTEGER :: id_year
      INTEGER :: id_hour
      INTEGER :: id_minute
      INTEGER :: id_second

    CONTAINS

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: MACHINE_CONS                                           C
!  Purpose: set the machine constants    ( SGI ONLY )                  C
!                                                                      C
!  Author: P. Nicoletti                               Date: 28-JAN-92  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date:            C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: OPEN_N1, NWORDS_DP, NWORDS_R, N_WORDS_I         C
!                                                                      C
!  Local variables: None                                               C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE machine_cons

      IMPLICIT NONE

      open_n1   = 512
      nwords_dp =  64
      nwords_r  = 128
      nwords_i  = 128
      just_flush = .true.

      RETURN
      END SUBROUTINE machine_cons
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: GET_RUN_ID                                             C
!  Purpose: get the run id for this run                                C
!                                                                      C
!  Author: P. Nicoletti                               Date: 16-DEC-91  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date:            C
!                                                                      C
!  Revision Number: 1                                                  C
!  Purpose: add ndoe name                                              C
!  Author: P.Nicoletti                                Date: 07-FEB-92  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: ID_MONTH, ID_DAY, ID_YEAR, ID_HOUR, ID_MINUTE   C
!                      ID_SECOND, ID_NODE                              C
!                                                                      C
!  Local variables: TIME_ARRAY                                         C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE get_run_id
!
      USE param
      IMPLICIT NONE
!
!             temporary array to hold time data
      INTEGER DAT(8)
      CHARACTER(LEN=10) DATE, TIM, ZONE

      CALL date_and_time(date, tim, zone, dat)
      id_year   = dat(1)
      id_month  = dat(2)
      id_day    = dat(3)
      id_hour   = dat(5)
      id_minute = dat(6)
      id_second = dat(7)

!     For SGI only
!      CALL GETHOSTNAME(ID_NODE,64)
!     For Linux with Portland Group compilers
      CALL get_environment_variable('HOSTNAME',id_node)
!
      RETURN
      END SUBROUTINE get_run_id
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Function name: WALL_TIME (CPU)                                      C
!  Purpose: returns wall time since start of the run                   C
!                                                                      C
!  Author: P. Nicoletti                               Date: 10-JAN-92  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date:            C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: TA, XT                                             C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      DOUBLE PRECISION FUNCTION wall_time()
!
      IMPLICIT NONE

      INTEGER, SAVE :: COUNT_OLD=0, wrap=0
!
! local variables
!                       clock cycle
      INTEGER           COUNT

!                       number of cycles per second
      INTEGER           COUNT_RATE

!                       max number of cycles, after which count is reset to 0
      INTEGER           COUNT_MAX

      CALL system_clock(count, count_rate, count_max)
      IF(count_old .GT. count) THEN
        wrap = wrap + 1
      ENDIF
      count_old = count

      wall_time      = dble(count)/dble(count_rate) &
                     + dble(wrap) * dble(count_max)/dble(count_rate)
      END FUNCTION wall_time
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: START_LOG                                              C
!  Purpose: does nothing ... for VAX/VMS compatibility (SGI ONLY)      C
!                                                                      C
!  Author: P. Nicoletti                               Date: 28-JAN-92  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date:            C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: None                                               C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE start_log
      IMPLICIT NONE
      RETURN
      END SUBROUTINE start_log
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: END_LOG                                                C
!  Purpose: flushes the log file                                       C
!                                                                      C
!  Author: P. Nicoletti                               Date: 28-JAN-92  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date:            C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: None                                               C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE end_log
      USE funits
      IMPLICIT NONE
      IF(dmp_log) FLUSH(unit_log)
      RETURN
      END SUBROUTINE end_log

      subroutine slumber
      return
      end subroutine slumber

      subroutine pc_quickwin
      return
      end subroutine pc_quickwin

      subroutine ran
      return
      end subroutine ran

      subroutine flush_bin(iunit)
      implicit none
      integer :: iunit

      flush(iunit)
      return
      end subroutine flush_bin

      subroutine flush_res(iunit)
      implicit none
      integer :: iunit
      flush(iunit)
      return
      end subroutine flush_res

      END MODULE machine