| 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 |
