loog.f90

Sfdtd Simple finite-difference time-domain

! loog.f90
!
! Einfacher log fuer sfdtd 
!
!    Copyright (C) 2007  Paul Panserrieu, < [e-mail] >
!
!    This program is free software: you can redistribute it and/or modify
!    it under the terms of the GNU General Public License as published by
!    the Free Software Foundation, either version 3 of the License.
! 
! last modified: 22-05-2007 12:32:35 PM CEST

MODULE loog

IMPLICIT NONE

CONTAINS

SUBROUTINE init_log(endstring, sim_id, device_id)

  INTEGER, INTENT(IN)                      :: device_id       
  CHARACTER(len=4), INTENT(IN)             :: endstring
  CHARACTER(len=5), INTENT(IN)             :: sim_id
  CHARACTER(len=11)                        :: logname

  logname = 'simu__sfdtd'
  OPEN(device_id, FILE= logname//'_'//sim_id//endstring, ACTION='WRITE')

END SUBROUTINE 

SUBROUTINE end_log(device_id)

  INTEGER, INTENT(IN)         :: device_id
  CLOSE(device_id)

END SUBROUTINE end_log

SUBROUTINE time(device_id, z1, z2)

  INTEGER, INTENT(IN)           :: device_id
  DOUBLE PRECISION, INTENT(IN)  :: z1, z2
  DOUBLE PRECISION              :: zeit
  INTEGER                       :: days, hours, mins, secs

  zeit  = z2-z1
  days  = INT(zeit)/(24 * 60*60)
  hours = MOD(INT(zeit),(24 * 60*60)) / (60*60)
  mins  = MOD(MOD(INT(zeit),(24 * 60*60)) , (60*60)) / 60
  secs  = MOD(MOD(MOD(INT(zeit),(24 * 60*60)) , (60*60)),  60)

  WRITE(device_id,*) "<<~-- Elapsed cpu time --------------~>>"
  IF (days .NE. 0) THEN                   ! :~)
    WRITE(device_id,*) '                  * days  = ', days
  ENDIF
  IF (hours .NE. 0) THEN
    WRITE(device_id,*) '                  * hours = ', hours
  ENDIF
  IF (mins .NE. 0) THEN
    WRITE(device_id,*) '                  * mins  = ', mins
  ENDIF
  WRITE(device_id,*) '                  * secs  = ', secs
  WRITE(device_id,*) 'Done... '
 
END SUBROUTINE time

END MODULE loog