Consecutive calls to same subroutine in fortran with significantly slower performance

Question

TL;DR

My program calls a subroutine twice. The subroutine performs basically identical operations both times, but takes significantly longer to run t