source: CIVL/mods/dev.civl.abc/examples/fortran/argonne/LOOPS/c.f

main
Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 279 bytes
Line 
1 subroutine f(n, a, b)
2 integer n, i
3 double precision a, b
4 i = 0
5 do 100
6 if(i .ge. n) go to 200
7 a = a+a*b + a*b*b - 1
8 if(mod(i,2) .eq. 0) go to 100
9 a = a+b*a*a + b*a - 1;
10 100 i = i+1
11 200 continue
12 end subroutine
Note: See TracBrowser for help on using the repository browser.