consistency_ports Subroutine

public subroutine consistency_ports(PP)

Arguments

Type IntentOptional Attributes Name
type(channel_t), intent(in) :: PP(:)

Called by

proc~~consistency_ports~~CalledByGraph proc~consistency_ports consistency_ports program~reims_p reims_p program~reims_p->proc~consistency_ports

Source Code

subroutine consistency_ports(PP)
    type(channel_t), intent(in) :: PP(:)
    integer :: i

    do i = 1, size(PP)
        if(PP(i)%HeProp%in%connected==.false.) then
            print*,'FF_flux_port 1 of ',PP(i)%hdf%name,' is not connected to any link'
            read(*,*)
        endif

        if(PP(i)%HeProp%out%connected==.false.) then
            print*,'FF_flux_port 2 of ',PP(i)%hdf%name,' is not connected to any link'
            read(*,*)
        endif   
    enddo
    flush(stdout)
end subroutine consistency_ports