dbcsr__l Function

public function dbcsr__l(filename, lineNr) result(location)

Helper routine to assemble LOCATION

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr

Return Value character(len=default_string_length)


Contents

Source Code


Source Code

   FUNCTION dbcsr__l(filename, lineNr) RESULT(location)
      !! Helper routine to assemble __LOCATION__
      CHARACTER(len=*), INTENT(in)                       :: filename
      INTEGER, INTENT(in)                                :: lineNr
      CHARACTER(len=default_string_length)               :: location

      CHARACTER(len=15)                                  :: lineNr_str

      WRITE (lineNr_str, FMT='(I10)') lineNr
      location = TRIM(filename)//":"//TRIM(ADJUSTL(lineNr_str))

   END FUNCTION dbcsr__l