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

1.23 2.0 acw/focus-triggers main test-branch
Last change on this file since cc8e265 was d5096aa, checked in by Ziqing Luo <ziqing@…>, 8 years ago

merge in examples that Wenhao used for his correctness workshop submission

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5032 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.