mat_copyid Subroutine

public subroutine mat_copyid(x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: x(GG_MAX_NAME_LENGTH)
integer, intent(in) :: y(GG_MAX_NAME_LENGTH)

Contents

Variables

i

Source Code

mat_copyid

Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

subroutine mat_copyid(x,y)

! ident_13="@(#) M_matrix mat_copyid(3fp) copy a name to allow an easy way to store a name"

integer,intent(out) :: x(GG_MAX_NAME_LENGTH)
integer,intent(in)  :: y(GG_MAX_NAME_LENGTH)
integer             :: i
      do i = 1, GG_MAX_NAME_LENGTH
         x(i) = y(i)
      enddo
end subroutine mat_copyid