[SOLVED] Neither Gfortran's CHAR nor ACHAR work in Ubuntu 14.04

AlexBB · 07-03-2015, 10:54 AM

Hi there. I need this conversion: Integer==>character string. Nothing I tried so far worked for me. For instance in this calling sequence:

Code:

call printDebugThree (lun2,NN,Input,CHAR (jj)//" *** ",jj)

The fourth variable is defined in subroutine printDebugThree as:

Code:

printDebugThree (lun2,NN,Input,string,numb)
  implicit none
  DOUBLE COMPLEX, DIMENSION (:), intent (in), POINTER :: Input
  integer*4, intent (in) :: NN,lun2,numb
  integer*4 :: jj
  character (len = *), intent (in) :: string
  write (lun2,*) "# ", string, " ", numb

All I get from the string is an unprintable character in lieu of CHAR(jj), then "***" which comes out correctly.The unprintable character is a square with four symbols in it which I don't understand. Unfortunately I cannot reproduce it here, it does not come out in "Preview Post."

I need this conversion. Any help will be appreciated. Thanks. - Alex

P.S. It is interesting. I just went through my output file and found that not all printed characters are unprintable but it also prints characters (instead of this square) which are not a part of the coded output, e.g #,$,),(,*, etc. It is very strange.

AlexBB · 07-03-2015, 11:32 AM

Actually I've solved the problem with this function. I changed it slightly and it works correctly.

Code:

character(len=20) function strConv(k)
!   "Convert an integer to string."
! http://stackoverflow.com/questions/1262695/converting-integers-to-strings-in-fortran
    integer, intent(in) :: k
    write (strConv, *) k
    strConv = adjustl(strConv)
end function strConv

But the problem in OP is still there. Those functions do not work. Thanks, -Alex