Help update old fortran 77 code

[ChunyuLiu]

decode(nb, 34, cdef(1:nb), err = 32) idea

In which, nb is a integer variable.

34: format, which is a variable format. i<nb>,

cdef(1:nb): one array

err =32 : error output


Can anyone help me update it?
I try to use read to replace decode.
character(LEN=20) FMT
write(FMT,*) nb
read(cdef(1:nb),"(i "//ADJUSTL(FMT)//")", err=32) idef

It doesn't work.

 

[xwb]

Have a look at

https://gcc.gnu.org/onlinedocs/gfortran/ENCODE-and-DECODE-statements.html

You have idef instead of idea