Error 6158 - structure name is invalid or missing

[cptfisher]

Hello, I receive the following errors when I try to compile:

aerodyn.f90(1327): error #6158: The structure-name is invalid or is missing. [AD_INIT]
call mxcopyreal8toptr700(AD_Init%Blade(1,1)%Position(1),ADB111_ptr,size1)
----------------------------^
aerodyn.f90(1328): error #6158: The structure-name is invalid or is missing. [AD_INIT]
call mxcopyreal8toptr700(AD_Init%Blade(1,1)%Position(2),ADB112_ptr,size1)
-----------------------------^

!!!!!!The values I'm trying to get are calculated by the following code:

AD_Init%Blade(:,:)%Position(1) = 0.0
AD_Init%Blade(:,:)%Position(2) = 0.0

DO IB = 1, NB
AD_Init%Blade(:,IB)%Position(3) = RElm(:) - HubRadius
END DO

! RELATIVE ORIENTATION OF BLADE ELEMENTS

DO IB = 1,NB
AD_Init%Blade(:,IB)%Orientation(1,1) = COS( TWIST(:) )
AD_Init%Blade(:,IB)%Orientation(2,1) = SIN( TWIST(:) )
AD_Init%Blade(:,IB)%Orientation(3,1) = 0.0

AD_Init%Blade(:,IB)%Orientation(1,2) = -1.*AD_Init%Blade(:,IB)%Orientation(2,1)
AD_Init%Blade(:,IB)%Orientation(2,2) = AD_Init%Blade(:,IB)%Orientation(1,1)
AD_Init%Blade(:,IB)%Orientation(3,2) = 0.0

AD_Init%Blade(:,IB)%Orientation(1,3) = 0.0
AD_Init%Blade(:,IB)%Orientation(2,3) = 0.0
AD_Init%Blade(:,IB)%Orientation(3,3) = 1.0
END DO


AD_Init is a function that is TYPE(AllAeroMarkers) that contains the position and orientation subcomponents.
It seems that maybe I should change the AD_Init in the calculation part of the code to what the answer will be such as ADMarkers that is also type(AllAeroMarkers) but I'm not sure.

[Steven_L_Intel1]

I think you will need to show us a compilable source that shows the problem. So much depends on how things are declared. Also, you need to tell us exactly which compiler version you are using.

[mecej4]

> AD_Init is a function...

If so, is it a function that takes zero arguments?

It is not clear because, as Steve already pointed out, you did not show the type declaration statements.