Logfile_stamp.F90

Go to the documentation of this file.

!! NOTICE
!!  Copyright 2022 UChicago Argonne, LLC and contributors
!!
!!  Licensed under the Apache License, Version 2.0 (the "License");
!!  you may not use this file except in compliance with the License.
!!
!!  Unless required by applicable law or agreed to in writing, software
!!  distributed under the License is distributed on an "AS IS" BASIS,
!!  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
!!  See the License for the specific language governing permissions and
!!  limitations under the License.
 
 
 
 
#include "constants.h"
 
subroutine Logfile_stampInt( intVal, tag, attrib)
 
implicit none
  integer, intent(in)                   ::  intVal  
  character(len=*), intent(in)           :: tag
  character(len=*), intent(in), OPTIONAL :: attrib
 
  return
  
end subroutine Logfile_stampInt
 
subroutine Logfile_stampIntArray( intArr, len, tag, attrib)
 
implicit none
 
  character(len=*),intent(in)           :: tag
  character(len=*), intent(in),OPTIONAL :: attrib
  integer,intent(in)                    :: len
  integer, dimension(len), intent(in)   :: intArr
 
  return
  
end subroutine Logfile_stampIntArray
 
subroutine Logfile_stampReal( realVal, tag, attrib)
 
  implicit none
  real, intent(in)                       :: realVal
  character(len=*), intent(in)           :: tag
  character(len=*), intent(in), OPTIONAL  :: attrib
  
  return
  
end subroutine Logfile_stampReal
 
subroutine Logfile_stampRealArray( realArr, len, tag, attrib)
 
  implicit none
  character(len=*),intent(in)            :: tag
  character(len=*), intent(in), OPTIONAL :: attrib
  integer,intent(in)                     :: len
  real, dimension(len),intent(in)        :: realArr
 
  return
  
end subroutine Logfile_stampRealArray
 
subroutine Logfile_stampStr( string, tag, attrib)
 
implicit none
  character(len=*), intent(in)           :: string
  character(len=*), intent(in), OPTIONAL :: tag, attrib
  
  return
  
end subroutine Logfile_stampStr
 
subroutine Logfile_stampStrArray( strArr, len, tag, attrib)
 
implicit none
  character(len=*), intent(in)             :: tag
  character(len=*), intent(in), OPTIONAL   :: attrib
  integer,intent(in)                       :: len
  character(len=*), dimension(len),intent(in) :: strArr
  
  return    
  
end subroutine Logfile_stampStrArray
 
 
subroutine Logfile_stampStrPair( strArr, len, dimen, tag, attrib)
 
implicit none
 
  character(len=*),intent(in)           :: tag
  character(len=*),intent(in), OPTIONAL :: attrib
  integer,intent(in)                    :: len, dimen
  character(len=*),dimension(len,dimen),intent(in) :: strArr
  
  return    
  
end subroutine Logfile_stampStrPair