Function has no IMPICIT Type

[Coco]

Hi,

I write the code as follow:

SUBROUTINE shellsolve(...)
...
CONTAINS
...
SUBROUTINE DefauUpdateForce(bb,ff)
TYPE(Matrix_t) :: bb
REAL(KIND=dp) :: ff(:)

TYPE(Element_t), POINTER :: Element
INTEGER, POINTER :: Indexes(:)
INTEGER :: n, ndofs

ndofs=6
Indexes => GetIndexStore()
Element => CurrentModel % CurrentElement
n = GetElementDOFs( Indexes, Element, Solver )
CALL UpdateForce( bb%RHS,ff,n,ndofs,DeflectionPerm(Indexes(1:n)) )
END SUBROUTINE DefauUpdateForce
...
END SUBROUTINE shellsolve

But when I make a compiler, it tells me that

Indexes=>GetIndexStore()
1
Error: Function 'getindexstore' at (1) has no IMPLICIT type

How do I modify the code?
Coco

[Coco]

Hi,

Add the line:
INTEGER, pointer,external:: GetIndexStore

And change Indexes => GetIndexStore()

to Indexes = GetIndexStore()

Then it works.

Coco