TRANSFER Intrinsic

TRANSFER converts (not coerces) physical representation between data types; it is a retyping facility. Syntax:

 
TRANSFER(SOURCE,MOLD)

• SOURCE is the object to be retyped,
• MOLD is an object of the target type.

    REAL, DIMENSION(10)    :: A, AA
    INTEGER, DIMENSION(20) :: B
    COMPLEX, DIMENSION(5)  :: C
     ...
    A  = TRANSFER(B, (/ 0.0 /))
    AA = TRANSFER(B, 0.0)
    C  = TRANSFER(B, (/ (0.0,0.0) /))
     ...

For more information, click here