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

fix indentation

parent 2bb003bf
...@@ -171,8 +171,10 @@ module m_eig66_data ...@@ -171,8 +171,10 @@ module m_eig66_data
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 mode=-1
listpointer=>linked_list listpointer=>linked_list
DO WHILE(associated(listpointer)) DO WHILE(associated(listpointer))
if (id==listpointer%id) THEN if (id==listpointer%id) THEN
mode=listpointer%data%io_mode mode=listpointer%data%io_mode
......
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