character as variable name

[DerSucher]

Hi,

I want to use a character to work with other variables, something like:

integer ::k=4
CHARACTER (len=100) :: name
name = 'k'
print *, name

-> Output: k
how to get a '4' as output instead of k?

 

[zeitghost]

Back in the mists of time, in FORTRAN IV and 77, I used to do things like that using ENCODE and DECODE which provided normal fortran formatted output to character variables like your "name" variable instead of writing to file/printer/etc.

No doubt these have long been replaced by more modern techniques.

 

[zeitghost]

Such as the internal write...

As described here:

http://h18009.www1.hp.com/fortran/docs/lrm/lrm0394.htm

 

[ArkM]

Use interpretive language instead of that Fortran with its compilers (if you don't want to implement your own run-time dictionary stuff to keep relations between variable names and its memory locations...