utils.F90

Go to the documentation of this file.

 subroutine error_handler(string, rc)

 use mpi

 implicit none

 character(len=*), intent(in)    :: string
 
 integer,          intent(in)    :: rc

 integer :: ierr

 print*,"- FATAL ERROR: ", string
 print*,"- IOSTAT IS: ", rc
 call mpi_abort(mpi_comm_world, 999, ierr)

 end subroutine error_handler

 subroutine netcdf_err( err, string )

 use mpi
 use netcdf

 implicit none
 integer, intent(in) :: err
 character(len=*), intent(in) :: string
 character(len=256) :: errmsg
 integer :: iret

 if( err.EQ.nf90_noerr )return
 errmsg = nf90_strerror(err)
 print*,''
 print*,'FATAL ERROR: ', trim(string), ': ', trim(errmsg)
 print*,'STOP.'
 call mpi_abort(mpi_comm_world, 999, iret)

 return
 end subroutine netcdf_err
 
function to_upper(strIn) result(strOut)

     implicit none

     character(len=*), intent(in) :: strin
     character(len=len(strIn)) :: strout
     integer :: i,j

     do i = 1, len(strin)
          j = iachar(strin(i:i))
          if (j>= iachar("a") .and. j<=iachar("z") ) then
               strout(i:i) = achar(iachar(strin(i:i))-32)
          else
               strout(i:i) = strin(i:i)
          end if
     end do

end function to_upper

subroutine to_lower(strIn)

     implicit none

     character(len=*), intent(inout) :: strin
     character(len=len(strIn)) :: strout
     integer :: i,j

     do i = 1, len(strin)
          j = iachar(strin(i:i))
          if (j>= iachar("A") .and. j<=iachar("Z") ) then
               strout(i:i) = achar(iachar(strin(i:i))+32)
          else
               strout(i:i) = strin(i:i)
          end if
     end do
  strin(:) = strout(:)
end subroutine to_lower