47 |
|
!! PURPOSE: |
48 |
|
!! |
49 |
|
!! @author Charles F. Vardeman II |
50 |
< |
!! @version $Id: suttonchen_interface.F90,v 1.2 2005-12-07 19:58:18 chuckv Exp $ |
50 |
> |
!! @version $Id: suttonchen_interface.F90,v 1.3 2006-05-17 15:37:15 gezelter Exp $ |
51 |
|
|
52 |
|
|
53 |
|
|
54 |
|
subroutine newSCtype(c_ident,c,m,n,alpha,epsilon,status) |
55 |
+ |
use definitions |
56 |
|
use suttonchen, ONLY : module_newSCtype => newSCtype |
56 |
– |
integer, parameter :: DP = selected_real_kind(15) |
57 |
|
integer,intent(inout) :: c_ident |
58 |
|
real (kind = dp ),intent(inout) :: c ! Density Scaling |
59 |
|
real (kind = dp ),intent(inout) :: m ! Density Exponent |