ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90 (file contents):
Revision 2278 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2279 by chrisfen, Tue Aug 30 18:23:50 2005 UTC

# Line 1 | Line 1
1   !! Interfaces for C programs to module....
2  
3 < subroutine initFortranFF(use_RF_c, thisStat)
3 > subroutine initFortranFF(use_RF_c, use_UW_c, use_DW_c, thisStat)
4    use doForces, ONLY: init_FF
5    logical, intent(in) :: use_RF_c
6 +  logical, intent(in) :: use_UW_c
7 +  logical, intent(in) :: use_DW_c
8  
9    integer, intent(out) :: thisStat  
10 <  call init_FF(use_RF_c, thisStat)
10 >  call init_FF(use_RF_c, use_UW_c, use_DW_c, thisStat)
11  
12   end subroutine initFortranFF
13  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines