You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
6 lines
212 B
6 lines
212 B
C---Begin statement function
|
|
complex(dp):: cplx1,cplx2
|
|
real(kind=dp):: xxxx,yyyy
|
|
cplx1(xxxx)=cmplx(xxxx,0._dp,kind=dp)
|
|
cplx2(xxxx,yyyy)=cmplx(xxxx,yyyy,kind=dp)
|
|
C---end statement function
|