mpmon.f90

Go to the documentation of this file.

 
 
MODULE mpmonpgs
    USE mpdef
    IMPLICIT NONE
 
    INTEGER(mpi) :: lun
    INTEGER(mpi) :: nrep
    INTEGER(mpi) :: nrepmi
 
END MODULE mpmonpgs
 
SUBROUTINE monini(l,n1,n2)
    USE mpmonpgs
 
    IMPLICIT NONE
 
    INTEGER(mpi), INTENT(IN)          :: l
    INTEGER(mpi), INTENT(IN)          :: n1
    INTEGER(mpi), INTENT(IN)          :: n2
 
    CHARACTER (LEN=24) :: chdate
 
    lun=l
    nrep=n1
    nrepmi=n2
    CALL fdate(chdate)
    WRITE(lun,*) ' Starting - ', chdate
 
END SUBROUTINE monini
 
SUBROUTINE monpgs(i)
    USE mpmonpgs
 
    IMPLICIT NONE
 
    INTEGER(mpi), INTENT(IN)          :: i
 
    IF (i >= nrep) THEN
        WRITE(lun,*) ' Index: ', i
        nrep=nrep+min(nrep,nrepmi)
    END IF
 
END SUBROUTINE monpgs
 
SUBROUTINE monend()
    USE mpmonpgs
 
    IMPLICIT NONE
 
    CHARACTER (LEN=24) :: chdate
 
    CALL fdate(chdate)
    WRITE(lun,*) ' Ending - ', chdate
 
END SUBROUTINE monend