problem with "CHARACTER"

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)
     
I am 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
Received on Thu Mar 3 14:07:14 2011