Commit 75057fa8 authored by Matthias Redies's avatar Matthias Redies

fix indentation

parent 2bb003bf
...@@ -169,17 +169,19 @@ module m_eig66_data ...@@ -169,17 +169,19 @@ module m_eig66_data
end function end function
INTEGER function eig66_data_mode(id)RESULT(mode) INTEGER function eig66_data_mode(id)RESULT(mode)
INTEGER,INTENT(IN) :: id INTEGER,INTENT(IN) :: id
TYPE(t_list),POINTER:: listpointer TYPE(t_list),POINTER:: listpointer
mode=-1
listpointer=>linked_list mode=-1
DO WHILE(associated(listpointer)) listpointer=>linked_list
if (id==listpointer%id) THEN
mode=listpointer%data%io_mode DO WHILE(associated(listpointer))
return if (id==listpointer%id) THEN
ENDIF mode=listpointer%data%io_mode
listpointer=>listpointer%next return
ENDDO ENDIF
listpointer=>listpointer%next
ENDDO
END FUNCTION END FUNCTION
end module m_eig66_data end module m_eig66_data
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment