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
Function has no IMPICIT Type
Re: Function has no IMPICIT Type
Hi,
Add the line:
INTEGER, pointer,external:: GetIndexStore
And change Indexes => GetIndexStore()
to Indexes = GetIndexStore()
Then it works.
Coco
Add the line:
INTEGER, pointer,external:: GetIndexStore
And change Indexes => GetIndexStore()
to Indexes = GetIndexStore()
Then it works.
Coco