Hi
I ve recently met a problem which read
PGF90-S-0155-Could not resolve generic procedure agrif_bc_variable (uv3dpremix_.f: 618)
PGF90-S-0155-Could not resolve generic procedure agrif_bc_variable (uv3dpremix_.f: 620)
0 inform, 0 warnings, 2 severes, 0 fatal for sub_loop_uv3dpremix_tile
I dunno how to figure out such issue. I d really appreciate it if someone can help me out !!
Below is the corresponding procedure, I only list the variable declaration
interface Agrif_Bc_variable
module procedure Agrif_Bc_variable0d,
& Agrif_Bc_variable1d,
& Agrif_Bc_variable2d,
& Agrif_Bc_variable3d,
& Agrif_Bc_variable4d,
& Agrif_Bc_variable5d
Subroutine Agrif_Bc_variable0d(tabvarsindic0,tabvarsindic,
& calledweight,procname)
INTEGER*4 :: tabvarsindic0
INTEGER*4 :: tabvarsindic
External :: procname
Optional :: procname
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
INTEGER*4 :: dimensio
...
Subroutine Agrif_Bc_variable1d(q,tabvarsindic,calledweight,
& procname)
REAL , Dimension(:) :: q
External :: procname
Optional :: procname
INTEGER*4 :: tabvarsindic, indic
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
TYPE(Agrif_PVariable),Pointer ::tabvars,parenttabvars,roottabvars
...
Subroutine Agrif_Bc_variable2d(q,tabvarsindic,calledweight,
& procname)
REAL , Dimension(:,:) :: q
External :: procname
Optional :: procname
INTEGER*4 :: tabvarsindic, indic
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
TYPE(Agrif_PVariable),Pointer ::tabvars,parenttabvars,roottabvars
...
Subroutine Agrif_Bc_variable3d(q,tabvarsindic,calledweight,
& procname)
REAL , Dimension(:,:,:) :: q
External :: procname
Optional :: procname
INTEGER*4 :: tabvarsindic, indic
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
TYPE(Agrif_PVariable),Pointer ::tabvars,parenttabvars,roottabvars
...
Subroutine Agrif_Bc_variable4d(q,tabvarsindic,calledweight,
& procname)
REAL , Dimension(:,:,:,:) :: q
External :: procname
Optional :: procname
INTEGER*4 :: tabvarsindic, indic
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
TYPE(Agrif_PVariable),Pointer ::tabvars,parenttabvars,roottabvars
...
Subroutine Agrif_Bc_variable5d(q,tabvarsindic,calledweight,
& procname)
REAL , Dimension(:,:,:,:,:) :: q
External :: procname
Optional :: procname
INTEGER*4 :: tabvarsindic, indic
REAL, OPTIONAL :: calledweight
REAL :: weight
LOGICAL :: pweight
TYPE(Agrif_PVariable),Pointer ::tabvars,parenttabvars,roottabvars
...
The commands I used are
cpp -P -traditional -DLinux -I…
pgf90 -c -Bstatic_pgi -fastsse -Mipa=fast -i4 -r8 -I… -o…
Thanks again!!
Yisen