convert Module

Convert from complex variable a(d1,d2,d3, ...) to a real variable ar(2,d1,d2,d3,...) and back.
This is necessary for saving complex variables in NetCDF format

(c) Copyright 1991 to 1998 by Michael A. Beer, William D. Dorland, 
P. B. Snyder, Q. P. Liu, and Gregory W. Hammett. ALL RIGHTS RESERVED.

Contents

Interfaces

Subroutines


Interfaces

public interface c2r

  • private subroutine x1c2r(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(in), dimension(:) :: a
    real, intent(out), dimension(:,:) :: a_ri

  • private subroutine x2c2r(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(in), dimension(:,:) :: a
    real, intent(out), dimension(:,:,:) :: a_ri

  • private subroutine x3c2r(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(in), dimension(:,:,:) :: a
    real, intent(out), dimension(:,:,:,:) :: a_ri

  • private subroutine x4c2r(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(in), dimension(:,:,:,:) :: a
    real, intent(out), dimension(:,:,:,:,:) :: a_ri

  • private subroutine x5c2r(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(in), dimension(:,:,:,:,:) :: a
    real, intent(out), dimension(:,:,:,:,:,:) :: a_ri

public interface r2c

  • private subroutine x1r2c(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(out), dimension(:) :: a
    real, intent(in), dimension(:,:) :: a_ri

  • private subroutine x2r2c(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(out), dimension(:,:) :: a
    real, intent(in), dimension(:,:,:) :: a_ri

  • private subroutine x3r2c(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(out), dimension(:,:,:) :: a
    real, intent(in), dimension(:,:,:,:) :: a_ri

  • private subroutine x4r2c(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(out), dimension(:,:,:,:) :: a
    real, intent(in), dimension(:,:,:,:,:) :: a_ri

  • private subroutine x5r2c(a, a_ri)

    FIXME : Add documentation

    Arguments

    Type IntentOptional Attributes Name
    complex, intent(out), dimension(:,:,:,:,:) :: a
    real, intent(in), dimension(:,:,:,:,:,:) :: a_ri

Subroutines

private subroutine x5c2r(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:,:,:,:,:) :: a
real, intent(out), dimension(:,:,:,:,:,:) :: a_ri

private subroutine x5r2c(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:,:,:,:,:) :: a
real, intent(in), dimension(:,:,:,:,:,:) :: a_ri

private subroutine x4c2r(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:,:,:,:) :: a
real, intent(out), dimension(:,:,:,:,:) :: a_ri

private subroutine x4r2c(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:,:,:,:) :: a
real, intent(in), dimension(:,:,:,:,:) :: a_ri

private subroutine x3c2r(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:,:,:) :: a
real, intent(out), dimension(:,:,:,:) :: a_ri

private subroutine x3r2c(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:,:,:) :: a
real, intent(in), dimension(:,:,:,:) :: a_ri

private subroutine x2c2r(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:,:) :: a
real, intent(out), dimension(:,:,:) :: a_ri

private subroutine x2r2c(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:,:) :: a
real, intent(in), dimension(:,:,:) :: a_ri

private subroutine x1c2r(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(in), dimension(:) :: a
real, intent(out), dimension(:,:) :: a_ri

private subroutine x1r2c(a, a_ri)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:) :: a
real, intent(in), dimension(:,:) :: a_ri

private subroutine aborter(ierrmsg)

ABORTS A PROGRAM AFTER A FATAL ERROR CONDITION IS DETECTED.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: ierrmsg

Error message