subroutine cpyfmg(nf,lfmt)
integer nf,lfmt(9)
subroutine getgfm(nf,gfmt,type)
integer nf,gfmt(18),type
cpyfmg_(nf,lfmt)
struct image **nf;Fort_int lfmt[9];
c_getgfm(nf,gfmt,type)
struct image *nf; struct nf_fmt *gfmt; int type;
getgfm et c_getgfm renvoient dans la structure de type nf_fmt pointée par gfmt, le format de l'image désignée par nf. Si type n'est pas égal à 1, on ne renvoie que la partie lfmt de gfmt; s'il est égal à 1, on renvoie le format complet.