Enable the possibility to add directives in the FORTRAN source code to transform this kind of code
!#indirect(GMASK, IMASK, INUM)
DO JL=1, IMICRO
IF(GMASK(JL) .AND. B(JL)==0.) THEN
A(JL)=...
ENDIF
ENDDO
into:
DO JL=1, INUM
IF(B(IMASK(JL))==0.) THEN
A(IMASK(JL))=...
ENDIF
ENDDO
This development will be used in the microphysics source code of PHYEX to give an alternative to pack/unpack
Copied from https://github.com/SebastienRietteMTO/PHYEX-fortran-tool/issues/7
Enable the possibility to add directives in the FORTRAN source code to transform this kind of code !#indirect(GMASK, IMASK, INUM) DO JL=1, IMICRO IF(GMASK(JL) .AND. B(JL)==0.) THEN A(JL)=... ENDIF ENDDO
into: DO JL=1, INUM IF(B(IMASK(JL))==0.) THEN A(IMASK(JL))=... ENDIF ENDDO
This development will be used in the microphysics source code of PHYEX to give an alternative to pack/unpack