Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Automated addition of indirections #1

Open
SebastienRietteMTO opened this issue Oct 10, 2023 · 0 comments
Open

Automated addition of indirections #1

SebastienRietteMTO opened this issue Oct 10, 2023 · 0 comments
Labels
enhancement New feature or request

Comments

@SebastienRietteMTO
Copy link
Contributor

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
@SebastienRietteMTO SebastienRietteMTO added the enhancement New feature or request label Oct 10, 2023
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
enhancement New feature or request
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@SebastienRietteMTO