a program for calculating photonic band structures and transmission coefficients of complex structures.pdf adag.f