source: CIVL/examples/fortran/cv2018/equivalence/resid/residual_bitand7.f

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 163 bytes
Line 
1 SUBROUTINE RESIDUAL_8(N,IA1,IA2)
2 INTEGER N,IA1(N),IA2(N)
3
4 Do I=1,N
5 IA2(I) = IAND(IA1(I), 7)
6 ENDDO
7 RETURN
8 END
Note: See TracBrowser for help on using the repository browser.