Skip to main content
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index] [List Home]
[photran] Juno: problem with Refactor and indentation 
Hi,
When I try to Refactor a project with Juno I get a message that the file cmake_fc.f90 (attached) cannot be parsed. When I try to correct indentation (Cntr+I) I get: "Syntax error: Unexpected end of input cmake_fc.f90, line 65, column 1). Expected one of the ..."
Let me say that there is no line 65, routine ends at line 63. In addition the file as well as the project compiles and runs correctly. What I am doing wrong? 

Thanks,
--Ted




subroutine cmake_fc (num_verts, num_3faces, num_4faces, &
     num_4cells, num_5cells, num_6cells, num_8cells, f3_c, f3_v, f4_c, &
     f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, bf4_f, &
     bc3type, bc4type, c4_v, c5_v, c6_v, c8_v)
  !
  !=======================================================================
  implicit real(8)(a - h, o - z)
  integer(kind=4) :: f3_c (2, * ), f3_v (3, * ), f4_c (2, * ), f4_v (4, * )
  integer(kind=4) :: c4_v (4, * ), c5_v (5, * ), c6_v (6, * ), c8_v (8, * )
integer(kind=4) :: bf3_v (3, * ), bf4_v (4, * ), bf3_f ( * ), bf4_f ( * ) 
  integer(kind=4) :: bc3type ( * ), bc4type ( * )
  logical :: match2, match3
  logical :: add123, add234, add124, add134, add125, add235, add345, add145
  logical :: add456, add1234
  logical :: add1245, add2356, add1346
  logical :: add5678, add1256, add2367, add3478, add1458
  integer(kind=4) , allocatable::vodeg (:), volist (:, :)
  logical :: abort
  interface
     subroutine make_fc (abort, ifactor, num_verts, num_3faces, &
num_4faces, num_4cells, num_5cells, num_6cells, num_8cells, f3_c, & f3_v, f4_c, f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, & 
          bf4_f, bc3type, bc4type, c4_v, c5_v, c6_v, c8_v, vodeg, volist)
       !
!======================================================================= 
       implicit real (8)(a - h, o - z)
integer(kind=4) :: f3_c (2, * ), f3_v (3, * ), f4_c (2, * ), f4_v (4, * ) integer(kind=4) :: c4_v (4, * ), c5_v (5, * ), c6_v (6, * ), c8_v (8, * ) integer(kind=4) :: bf3_v (3, * ), bf4_v (4, * ), bf3_f ( * ), bf4_f ( * ) 
       integer(kind=4) :: vodeg ( * ), volist (num_verts, * )
       integer(kind=4) :: bc3type ( * ), bc4type ( * )
       logical :: abort
     end subroutine make_fc
    end interface

    IFACTOR = 16

   10 continue

    allocate (vodeg (num_verts))          ; vodeg=0
    allocate (volist(num_verts, ifactor)) ; volist=0

    abort = .false.

    call make_fc (abort, ifactor, num_verts, num_3faces, num_4faces, &
num_4cells, num_5cells, num_6cells, num_8cells, f3_c, f3_v, f4_c, & 
         f4_v, num_3bfaces, num_4bfaces, bf3_v, bf4_v, bf3_f, bf4_f, &
         bc3type, bc4type, c4_v, c5_v, c6_v, c8_v, vodeg, volist)

    deallocate (volist, vodeg)
    if (abort) then
       ifactor = ifactor + 2
       !        write(*,*)' ifactor increased to ',ifactor
       goto 10

    endif

end subroutine cmake_fc

Back to the top