Re: problem with "CHARACTER"

Dear Dennis,

Thanks for your prompt response.
So there is no way I can define a character in NCL with 2dimension and each has 12 character length?

Thanks

Debasish

On 2011-03-03, at 16:32, Dennis Shea wrote:

> I think you can only pass one string
> to the fortran code. This is a C<==>fortran thing.
>
> D
>
> On 3/3/11 2:06 PM, Debasish wrote:
>> Dear NCL Users,
>>
>> I have a fortran subroutine (Part of the subroutine are given below)
>>
>> C===================================================== REGTST.FOR
>> SUBROUTINE REGTST(NSITES,NAMES,LEN,XMOM,A,B,SEED,NSIM,NPROB,PROB,
>> * KPRINT,KOUT,RMOM,D,VOBS,VBAR,VSD,H,Z,PARA)
>> C***********************************************************************
>> IMPLICIT DOUBLE PRECISION (A-H,O-Z)
>> PARAMETER (MAXNS=200,MAXQ=30,MAXREC=200)
>> C
>> CHARACTER*1 BLANK,STAR,LOOK1,LOOK2
>> *CHARACTER*12 NAMES(NSITES)*
>> CHARACTER*18 DISTRI(6)
>> DOUBLE PRECISION D(NSITES),DC1(14),DC2(18),H(3),PARA(5,6),
>> * PROB(NPROB),Q(MAXQ),RMOM(5),RPARA(4),SMAT(3,3),TMOM(4),T4FIT(5),
>> * VBAR(3),VOBS(3),VSD(3),WORK(MAXNS,3),X(MAXREC),XMOM(5,NSITES),
>> * Z(5)
>> INTEGER LEN(NSITES)
>>
>> Iam trying to call the subroutine from my NCL script. In this subroutine
>> "NAMES (CHARACTER*12)" is the sites name. I have two arbitrary sites
>> (NSITES = 2) for example, "AAAAAAAAAAAA" (name of site 1) and
>> "BBBBBBBBBBBB" (name of site 2).
>>
>> I have tried two ways to store the site names in "NAMES" but it does not
>> work with the subroutine
>>
>> *TRAIL # 1*
>>
>> NAMES = (/"AAAAAAAAAAA","BBBBBBBBBBB"/)
>>
>> LMOM3::regtst(NSITE,NAMES,LEN,XMOM,A,B,SEED,NSIM,NPROB,PROB,KPRINT,KOUT,RMOM,D,VOBS,VBAR,VSD,H,Z,PARAN)
>>
>> */Error in line LMOM3::regtst(......) /*: fatal:Number of elements of
>> dimension (0) of argument (1) is (2) in function (regtst), expected (12)
>> elements
>>
>> *TRAIL # 2*
>>
>> NAME = (/"AAAAAAAAAAA","BBBBBBBBBBB"/)
>>
>> NAMES = stringtocharacter(NAME)
>>
>> LMOM3::regtst(NSITE,NAMES,LEN,XMOM,A,B,SEED,NSIM,NPROB,PROB,KPRINT,KOUT,RMOM,D,VOBS,VBAR,VSD,H,Z,PARAN)
>>
>> */Error in line LMOM3::regtst(......)/*: Number of dimensions in
>> parameter (1) of (regtst) is (2), (1) dimensions were expected
>>
>> Any suggestion in this regard will be appreciated
>>
>> Thanks
>>
>> Debasish
>>
>>
>>
>> _______________________________________________
>> ncl-talk mailing list
>> List instructions, subscriber options, unsubscribe:
>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Thu Mar 3 14:48:56 2011