Function has no IMPICIT Type

Numerical methods and mathematical models of Elmer
Post Reply
Coco
Posts: 16
Joined: 01 Apr 2015, 09:01
Antispam: Yes

Function has no IMPICIT Type

Post by Coco » 26 Apr 2015, 10:22

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
Posts: 16
Joined: 01 Apr 2015, 09:01
Antispam: Yes

Re: Function has no IMPICIT Type

Post by Coco » 26 Apr 2015, 11:04

Hi,

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

And change Indexes => GetIndexStore()

to Indexes = GetIndexStore()

Then it works.

Coco

Post Reply